home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
geos-archive
/
GEOS-D64
/
GeoThek Programme (19xx)(-)(de)[gt105a].d64
/
imagecon
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
6KB
|
230 lines
10 IFA=1THEN74
12 PRINTCHR$(14):POKE53280,0:POKE53281,15:POKE646,11
14 PRINT"[147][199][197][207][208]AINT/[200]I-RES [208]ICTURE [195]ONVERTER [146]"
16 PRINT" [160][160] C 1986 [205]YSTIC [202]IM."
18 PRINT" [208]UT PICTURE DISK IN DRIVE"
20 PRINT" [200]IT A [203]EY."
22 GETA$:IFA$=""THEN22
24 FORI=49152TO49719:READJ:POKEI,J:NEXTI
26 PRINT"[147] [215]HEN LISTING REACHES FILE TO CONVERT,"
28 PRINT" [200]IT A [203]EY."
30 OPEN15,8,15
32 OPEN1,8,0,"$"
34 GET#1,A$,A$
36 GET#1,A$,A$
38 IFA$=""THEN64
40 GET#1,A$,A$
42 GET#1,A$
44 IFA$=CHR$(34)THENT=T+1
46 IFA$=CHR$(34)ORT<>1THEN52
48 IFA$=CHR$(129)THENK2=1:GOTO52
50 N$=N$+A$
52 IF A$=""THEN56
54 GOTO42
56 PRINTN$
58 GETD$:IFD$<>""THEN64
60 N$="":T=0
62 GOTO36
64 CLOSE1:CLOSE15
66 PRINT"[205]OVE CURSOR TO SELECTION, [200]IT [210][197][212][213][210][206][146]"
68 INPUTF$
70 K2$=" "
72 IFK2=1THENF$=CHR$(129)+F$+K2$:F$=LEFT$(F$,15)
74 IFA=0THENA=1:LOADF$,8,1
76 PRINT"[147][145][201]S PICTURE [200][146]I-RES OR [205][146]ULTICOLOR? "
78 GETA$:IFA$<>"H"ANDA$<>"M"THEN78
80 IFA$="M"THEN88
82 PRINT"[147][145][210][146]ETAIN COLORS, OR MAKE [205][146]ONOCHROME?"
84 GETA$:IFA$<>"R"ANDA$<>"M"THEN84
86 IFA$="R"THEN106
88 PRINT"[145] [195][146]HOOSE COLORS, OR USE [199][197][207][211] [196][146]EFAULT?"
90 GETA$:IFA$<>"C"ANDA$<>"D"THEN90
92 IFA$="D"THENB1=191:GOTO104
94 INPUT"[195]HOOSE BACKGROUND COLOR (1-16)";A1
96 IFA1<1ORA1>16THENPRINT"[145][145] ";:GOTO94
98 INPUT"[195]HOOSE FOREGROUND COLOR (1-16)";A2
100 IFA2<1ORA2>16THENPRINT"[145][145] ";:GOTO98
102 B1=(A2-1)+16*(A1-1)
104 FORI=23552TO24551:POKEI,B1:NEXTI
106 PRINTCHR$(14);"[147]
108 [159]2,8,2,"0:"[170]F$
110 [160]2
112 [151]198,1
114 [151]53265,[194](53265)[176]32
116 [151]53272,([194](53272)[175]15)[176]120
118 [151]56576,([194](56576)[175]252)[176]2
120 [151]56578,([194](56578)[176]3)
122 [161]A$:[139]A$[178]""[167]122
124 [151]53265,27:[151]53272,23:I[178]0:[151]56576,151
126 [153]"LOAD (null)WAITSE THESE COLORS, OR TRY (null)WAITEW ONES?"
128 [161]A$:[139]A$[178]""[167]128
130 [139]A$[179][177]"U"[175]A$[179][177]"N"[167]128
132 [139]A$[178]"N"[167][153]"LOAD":[137]88
134 [151]2,0:[151]808,234
136 [153]"LOADSAVE (null)(null)ATNLENVAL CHR$VAL(null)(null) STR$RIGHT$(null)(null) RIGHT$(null) STR$(null)RIGHT$(null)VAL WAIT"
138 [153]" LEFT$IT A (null)EYON"
140 [161]A$:[139]A$[178]""[167]140
142 [139]A$[178]"N"[167]348
144 [153]" WORKING.... "
146 [159]15,8,15,"I0"
148 [141]336
150 [159]2,8,2,"#"
152 [141]336
154 [152]15,"UA:2,0,18,0"
156 [141]336
158 [152]15,"B-P:2,173"
160 [141]336
162 B$[178]"":M[178]2
164 [129]I[178]0[164]10
166 [141]350
168 B$[178]B$[170]A$
170 [130]I
172 [139][198](B$)[178]([198]("GEOS ASC(null)(null)(null)ATN(null)"))[167]176
174 [153]"LOAD (null)(null)(null) ATN CHR$VAL(null)(null) STR$RIGHT$(null)(null) WAIT":[137]348
176 J[178]250:K[178]252
178 [141]356
180 C[178]B[170]256[172]A
182 [139]C[177]50 [167]186
184 [153]" (null)(null)(null) VAL(null)(null)(null)CHR$LEFT$ (null)(null)(null)(null) (null)(null) STR$RIGHT$(null)(null) WAIT":[137]348
186 [159]3,8,3,"TEMP,S,W"
188 [141]336
190 [152]3,"TEXT"
192 [160]3
194 [158]49577
196 [159]3,8,3,"TEMP,S,R"
198 [141]336
200 J[178]144:K[178]148
202 [141]356
204 [160]3
206 D[178]B:E[178]A:M[178]2
208 [141]370
210 [152]2,[199](0);
212 [141]350
214 G$[178]A$:G[178]A
216 [141]350
218 H$[178]A$:H[178]A
220 [152]15,"UB:2,0,18"D
222 [159]3,8,3,"TEMP,S,W"
224 [141]336
226 [140]:[129]I[178]49152[164]49719:[135]J:[130]I
228 [129]I[178]1[164]158
230 [135]J
232 [152]3,[199](J);
234 [130]I
236 [129]I[178]1[164]96:[152]3,[199](0);:[130]I
238 [160]3
240 [141]370
242 [152]2,[199](0);
244 [141]350
246 D$[178]A$
248 [141]350
250 E$[178]A$
252 [152]15,"UB:2,0,18"D
254 [159]3,8,3,"TEMP,S,W"
256 [141]336
258 [158]49172
260 [160]3
262 [141]370
264 [152]2,[199](0);
266 [141]350
268 T[178]A
270 [141]350
272 S[178]A
274 [152]15,"UB:2,0,18"D
276 [151]780,T:[151]781,S
278 [158]49551
280 [139][194](2)[178]0[167]254
282 [141]370
284 J[178]250:K[178]252
286 [141]356
288 B[178]B[170]256[172]A:B[178]C[171]B
290 Q[178][181](B[173]256):L[178]B[171]256[172]Q
292 C$[178]""
294 [129]I[178]1[164][195](F$)
296 B$[178][202](F$,I,1)
298 [139]B$[178]"*"[167]I[178][195](F$):[137]310
300 B[178][198](B$)
302 [139]B[177]64[175]B[179]91[167]B[178]B[170]32:B$[178][199](B)
304 [139]B[177]191[175]B[179]224[167]B[178]B[171]96:B$[178][199](B)
306 C$[178]C$[170]B$
308 [130]I
310 I$[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
312 C$[178]C$[170][201](I$,(16[171][195](C$)))
314 I$[178][199](1)[170][199](7)[170][199](86)[170][199](10)[170][199](4)[170][199](1)[170][199](0)
316 I$[178][199](131)[170]G$[170]H$[170]C$[170]D$[170]E$[170]I$[170][199](L)[170][199](Q)
318 [152]2,I$;
320 [152]15,"UB:2,0,18"D
322 [141]336
324 [152]15,"UA:2,0"G;H
326 [141]336
328 [158]49606
330 [152]15,"UB:2,0"G;H
332 [141]336
334 [153]"LOAD LEN(null)(null)(null)(null)VAL(null)VAL WAIT":[137]348
336 [132]15,N,M$,O,P
338 [139] N[179]20[167][142]
340 [153]"LOAD STR$RIGHT$(null)(null) VAL(null)(null)(null)(null) WAIT"
342 [153]" ";N,M$,O,P
344 [137]348
346 [142]
348 [160]2:[160]3:[160]15:[151]808,237:[128]
350 [161]#M,A$:[139]A$[178]""[167]A$[178][199](0)
352 A[178][198](A$)
354 [142]
356 [152]15,"M-R"[199](J)[199](2)
358 M[178]15
360 [141]350
362 B[178]A
364 [152]15,"M-R"[199](K)[199](2)
366 [141]350
368 [142]
370 [152]15,"UA:2,0,18"D
372 [141]336
374 [152]15,"B-P:2"E
376 [142]
378 [128]
380 [131]76,20,192,76,169,193,76,143,193,76,198,193,0,0,2,0,0,0,0,0,169,198
382 [131]141,133,193,169,0,141,132,193,238,15,192,173,18,192,133,251,173,19
384 [131]192,133,252,162,0,160,0,177,251,201,0,208,52,200,208,247,230,252,177
386 [131]251,201,0,208,41,200,192,64,208,245,32,254,193,224,1,240,3,232,208
388 [131]222,238,14,192,238,14,192,165,251,141,18,192,165,252,141,19,192,173
390 [131]15,192,201,13,208,174,133,2,96,169,1,141,12,192,173,18,192,133,251
392 [131]173,19,192,133,252,162,0,160,0,169,63,32,131,193,177,251,32,131,193
394 [131]200,192,63,144,246,32,240,193,232,224,5,144,231,169,5,32,131,193,160
396 [131]0,177,251,32,131,193,200,192,5,144,246,32,42,194,162,2,169,255,32
398 [131]131,193,169,0,32,131,193,202,208,243,173,12,192,208,4,169,202,208,2
400 [131]169,194,32,131,193,169,0,32,131,193,173,12,192,240,16,206,12,192,173
402 [131]15,192,201,13,208,3,76,12,194,76,120,192,165,251,141,18,192,165,252
404 [131]141,19,192,173,15,192,201,13,208,4,169,1,133,2,169,1,141,13,192,160
406 [131]0,169,40,32,131,193,185,0,92,32,131,193,200,192,40,144,245,169,168
408 [131]32,131,193,169,191,32,131,193,24,173,0,193,105,40,141,0,193,173,1
410 [131]193,105,0,141,1,193,173,13,192,240,20,206,13,192,165,2,208,3,76,248
412 [131]192,169,208,32,131,193,169,191,32,131,193,169,0,32,131,193,173,132
414 [131]193,141,16,192,173,133,193,141,17,192,32,204,255,162,3,32,201,255
416 [131]169,0,141,98,193,169,198,141,99,193,173,0,198,32,210,255,238,98,193
418 [131]208,3,238,99,193,173,99,193,205,17,192,208,234,173,98,193,205,16,192
420 [131]208,226,32,204,255,96,141,0,198,238,132,193,208,3,238,133,193,96,172
422 [131]14,192,153,0,207,200,138,153,0,207,200,240,4,140,14,192,96,169,255
424 [131]133,2,32,204,255,96,162,0,169,0,157,0,207,232,169,255,157,0,207,232
426 [131]224,94,144,240,169,0,157,0,207,232,208,248,76,218,193,162,2,32,201
428 [131]255,160,0,185,0,207,32,210,255,200,208,247,32,204,255,96,169,96,141
430 [131]19,192,169,92,141,1,193,169,0,141,18,192,141,0,193,141,15,192,96,24
432 [131]165,251,105,63,133,251,165,252,105,0,133,252,96,24,165,251,105,64
434 [131]133,251,165,252,105,0,133,252,96,162,0,160,0,169,255,32,131,193,152
436 [131]32,131,193,232,224,5,144,242,169,141,32,131,193,152,32,131,193,76
438 [131]222,192,24,165,251,105,5,133,251,165,252,105,0,133,252,96
440 [131]3,21,191
442 [131]127,255,254,224,024,007,192,255
444 [131]003,147,000,201,132,000,033,132
446 [131]000,033,137,016,017,137,176,017
448 [131]145,080,009,145,080,009,243,027
450 [131]143,144,001,009,144,001,009,136
452 [131]017,017,136,014,017,132,000,033
454 [131]132,000,033,147,000,201,192,255
456 [131]003,224,024,007,127,255,254
458 [131]131,7,1,0,0,255,255,0,0,80,97,105,110,116,32,73,109,97,103,101,32
460 [131]86,49,46,49,0,0,0,0
462 [131]77,121,115,116,105,99,32,74,105,109,32,99,32,49,57,56,54,32,32,32,103
464 [131]101,111,80,97,105,110,116,32,32,32,32,86,49,46,49,0,0,0,0,32,28,63,141
466 [131]252,61,32,165,4,32,60,63,169,0,141,184,95,169,0,133,17,169,7